5 REM  **********************************
10 REM *   GIGA-CAD     GRAPHIC-SYSTEM  *
15 REM *        'CAD.HARDCOPY'          *
20 REM * BY S. VILSMEIER & S. LIPPSTREU *
25 REM **********************************
30 :
35 :
40 A=PEEK(836)+1:POKE836,A:IFA=1THENGOSUB1525:LOAD"HARD.CAD.OBJ",8,1
45 DIMA(30,6),B(20):OPEN1,8,15
50 OPEN2,8,2,"CAD.PRINTER.DATAS,S,R":GOSUB305:IFF<>0THENCLOSE2:GOTO70
55 INPUT#2,D$
60 FORX=0TO5:INPUT#2,A(0,X):INPUT#2,A(1,X):INPUT#2,A(2,X):FORI=3TOA(2,X)+2
65 INPUT#2,A(I,X):NEXT:NEXT:CLOSE2:GOSUB305:CLOSE1:DD=A(2,1)
70 OPEN1,8,15,"U9":CLOSE1:PRINTCHR$(14)CHR$(8):POKE53280,14
75 :
80 :
85 REM **********************************
90 REM *          HAUPTMENUE            *
95 REM **********************************
100 :
105 PRINT"[147] [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
110 PRINT"         [200]ARDCOPY - [200]AUPTMENUE         [146]"
115 FORI=1TO21:PRINT" [180]                                    [170]":NEXT
120 PRINT"                                       [146]"
125 PRINT" [193]. - [197]INZELNE [199]RAFIK LADEN"
130 PRINT" [194]. - [200]ARDCOPY 1-FACH"
135 PRINT" [195]. - [200]ARDCOPY 4-FACH"
140 PRINT" [196]. - [200]ARDCOPY 10-FACH"
145 PRINT" [197]. - [197]INFACHE [196]ICHTE";
150 IFDMTHENPRINT"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][196]OPPELTE";
155 PRINT:PRINT" [198]. - [196]RUCKERANPASSUNG"
160 PRINT" [199]. - [196]ISKETTENKOMMANDO SENDEN"
165 PRINT" [200]. - [196]IRECTORY ANZEIGEN"
170 PRINT" [201]. - [196]RUCKERKOMMANDO SENDEN"
175 PRINT" [202]. - [196]RUCKERPARAMETER PRUEFEN"
180 PRINT" [196]RUCKERTYP : ";D$;"[146]";
185 GETX$:IFX$<"A"ORX$>"J"GOTO185
190 ONASC(X$)-64GOTO225,435,620,695,520,770,375,560,1415,1125
195 :
200 :
205 REM *********************************
210 REM *         GRAFIK LADEN          *
215 REM *********************************
220 :
225 PRINT"[147] [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
230 PRINT"               [199]RAFIK LADEN            [146]":GOSUB1545
235 INPUT" [206]AME ";N$:IFN$=""ORN$="_"GOTO70
240 IFLEN(N$)>10GOTO235
245 SYS50192,11,15,1:SYS50299,1
250 OPEN2,8,2,"PI."+N$+",P,R":FK=1:OPEN1,8,15:GOSUB305
255 IFF<>0THENSYS50299,0:CLOSE2:GOTO70
260 SYS50442,1:CLOSE2:CLOSE1
265 SYS50299,0:GOTO70
270 :
275 :
280 REM *********************************
285 REM *       DISKETTEN-FEHLER        *
290 REM *********************************
295 :
300 OPEN1,8,15:FK=0
305 INPUT#1,F,F$,T,S:IFF=0THENRETURN
310 IFFKTHENSYS50299,0:PRINTCHR$(14);CHR$(8)
315 PRINT:PRINT" [196]ISKETTENSTATUS :"
320 PRINT""F","F$","T","S
325 POKE198,0
330 GETX$:IFX$=""GOTO330
335 CLOSE2:CLOSE1:RETURN
340 GOTO105
345 :
350 :
355 REM *********************************
360 REM *    DISKETTENKOMMANDO SENDEN   *
365 REM *********************************
370 :
375 PRINT"[147] [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
380 PRINT"        [196]ISKETTENKOMMANDO SENDEN       [146]":GOSUB1545
385 POKE631,34:POKE198,1
390 INPUT" [203]OMMANDO ";C$:IFC$=""GOTO70
395 OPEN1,8,15,C$:GOSUB305:IFF=0THENGOSUB315
400 CLOSE2:CLOSE1:GOTO70
405 :
410 :
415 REM *********************************
420 REM *        HARDCOPY 1-FACH        *
425 REM *********************************
430 :
435 PRINT"[147] [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
440 PRINT"             [200]ARDCOPY 1-FACH           [146]":GOSUB1545
445 GOSUB1205:IFDMTHENGOTO465
450 X=1:GOSUB1250:OPEN4,4,A(1,4)
455 X=4:FORS=0TO24:GOSUB1250:SYS50475,S*320,0,0,0:PRINT#4:NEXTS:GOSUB1215
460 GOTO105
465 OPEN4,4,A(1,2)
470 FORS=0TO24STEP2:X=0:SZ=1:GOSUB1250:X=2:GOSUB1250
475 SYS50475,S*320,1,0,0:PRINT#4:X=0:SZ=15:GOSUB1250:X=2:GOSUB1250
480 SYS50475,S*320,1,1,0:PRINT#4:NEXTS:GOSUB1215:GOTO105
485 GOTO70
490 :
495 :
500 REM *********************************
505 REM *      MENUEPUNKT 'E'           *
510 REM *********************************
515 :
520 IFDD=0GOTO185
525 DM=1-DM:GOTO125
530 :
535 :
540 REM *********************************
545 REM *       DIRECTORY ANZEIGEN      *
550 REM *********************************
555 :
560 PRINT"[147] [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
565 PRINT"           [196]IRECTORY ANZEIGEN          [146]"
570 PRINT"":OPEN2,8,0,"$0":GOSUB300:IFFGOTO70
575 SYS50901:CLOSE2:CLOSE1:POKE198,0
580 GETX$:IFX$=""GOTO580
585 GOTO70
590 :
595 :
600 REM *********************************
605 REM *       HARDCOPY 4-FACH         *
610 REM *********************************
615 :
620 PRINT"[147] [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
625 PRINT"             [200]ARDCOPY 4-FACH           [146]":GOSUB1545
630 N$="":INPUT"[198]ILE - [206]AME ";N$:IFN$=""ORN$="_"GOTO105
635 FORQ=1TO4STEP2:OPEN2,8,2,"HV."+N$+STR$(Q)+",P,R":SYS50442,1:CLOSE2
640 OPEN2,8,2,"HV."+N$+STR$(Q+1)+",P,R":SYS50442,2:CLOSE2
645 GOSUB300:IFF<>0GOTO105
650 CLOSE1:IFDMTHENGOSUB1070:GOTO660
655 GOSUB1025
660 NEXTQ:GOTO105
665 :
670 :
675 REM *********************************
680 REM *       HARDCOPY 10-FACH        *
685 REM *********************************
690 :
695 PRINT"[147] [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
700 PRINT"               [200]ARDCOPY 10-FACH        [146]":GOSUB1545
705 N$="":INPUT"[198]ILE - [206]AME ";N$:IFN$=""ORN$="_"GOTO105
710 FORQ=1TO10STEP2:OPEN2,8,2,"HZ."+N$+STR$(Q)+",P,R":SYS50442,1:CLOSE2
715 OPEN2,8,2,"HZ."+N$+STR$(Q+1)+",P,R":SYS50442,2:CLOSE2
720 GOSUB300:IFF<>0GOTO105
725 CLOSE1:IFDMTHENGOSUB1070:GOTO735
730 GOSUB1025
735 NEXTQ:GOTO105
740 :
745 :
750 REM *********************************
755 REM *       DRUCKERANPASSUNG        *
760 REM *********************************
765 :
770 GOSUB1300
775 PRINT"[215]ELCHEN [196]RUCKER HABEN":PRINT"[211]IE DENN   ";D$
780 INPUT"[145]";D$:D$=LEFT$(D$,19)
785 IFD$="_"GOTO105
790 GOSUB1300:PRINT"[206]UN MUSS EINGEGEBEN WERDEN, OB IHR"
795 PRINT"[196]RUCKER UEBER DIE [205]OEGLICHKEIT VER-"
800 PRINT"FUEGT, [199]RAFIKEN IN DOPPELTER [196]ICHTE"
805 PRINT"MIT EINEM [218]EILENABSTAND VON N HALBEN "
810 PRINT"[208]UNKTEN AUSZUDRUCKEN."
815 INPUT"[206]UN, IST DIES MOEGLICH (J/N) ";N1$
820 DD=1:IFN1$="N"THENDD=0:GOTO850
825 GOSUB1300:PRINT"[215]IEVIELE [211]TEUERZEICHEN MUESSEN [211]IE"
830 PRINT"SENDEN, UM DEN [218]EILENABSTAND AUF  "
835 PRINT"N/144 [201]NCH FESTZULEGEN  ";A(2,0)
840 INPUT"[145]";A(2,0)
845 X=0:GOSUB1310:IFA$<>"J"GOTO825
850 GOSUB1300:PRINT"[206]UN IST DIE [193]NZAHL DER [211]TEUERZEICHEN"
855 PRINT"VON [201]NTERESSE, UM DEN [196]RUCKER AUF"
860 PRINT"EINEN [218]EILENABSTAND VON 8/72 [201]NCH "
865 PRINT"EINZUSTELLEN. [193]NZAHL  ";A(2,1)
870 INPUT"[145]";A(2,1):X=1:GOSUB1310:IFA$<>"J"GOTO850
875 IFDD=0GOTO925
880 GOSUB1300:PRINT"[215]IEVIEL [195]ODES MUESSEN GESENDET WER-"
885 PRINT"DEN, UM [201]HREN [196]RUCKER ZUM [193]USDRUCK"
890 PRINT"VON 320 [208]UNKTSPALTEN IN DOPPELTER"
895 PRINT"[196]ICHTE ZU BEWEGEN  ";A(2,2)
900 INPUT"[145]";A(2,2):X=2:GOSUB1310:IFA$<>"J"GOTO880
905 GOSUB1300:PRINT"[205]IT WELCHER [193]NZAHL AN [196]RUCKERSTEUER-    ZEICHEN ";
910 PRINT"KANN MAN 640 [199]RAFIKSPALTEN IN"
915 PRINT"DOPPELTER [196]ICHTE DRUCKEN  ";A(2,3)
920 INPUT"[145]";A(2,3):X=3:GOSUB1310:IFA$<>"J"GOTO905
925 GOSUB1300:PRINT"[205]IT WIEVIEL [211]TEUERCODES BEWERKSTEL-"
930 PRINT"LIGT MAN EINEN [193]USDRUCK VON 320"
935 PRINT"[211]PALTEN IN EINFACHER [196]ICHTE  ";A(2,4)
940 INPUT"[145]";A(2,4):X=4:GOSUB1310
945 IFA$<>"J"GOTO925
950 GOSUB1300:PRINT"[202]ETZT IST ES AUSSERDEM NOCH WICHTIG,"
955 PRINT"WIEVIEL [211]TEUERZEICHEN [201]HR [196]RUCKER ZUM"
960 PRINT"[193]USDRUCK VON 640 [211]PALTEN IN EINFACHER"
965 PRINT"[199]ROESSE BENOETIGT  ";A(2,5)
970 INPUT"[145]";A(2,5):X=5:GOSUB1310:IFA$<>"J"GOTO950
975 OPEN1,8,15,"S:CAD.PRINTER.DATAS"
980 OPEN2,8,2,"CAD.PRINTER.DATAS,S,W":PRINT#2,D$
985 FORX=0TO5:FORI=0TOA(2,X)+2:PRINT#2,A(I,X):NEXTI:NEXTX:CLOSE2
990 GOSUB305:CLOSE1:GOTO105
995 :
1000 :
1005 REM ********************************
1010 REM *   AUSDRUCK EINFACHE DICHTE   *
1015 REM ********************************
1020 :
1025 GOSUB1205:X=1:GOSUB1250:OPEN4,4,A(1,5)
1030 X=5:FORS=0TO24:GOSUB1250:SYS50475,320*S,0,0,1:PRINT#4:NEXTS
1035 GOSUB1215:RETURN
1040 :
1045 :
1050 REM ********************************
1055 REM *   AUSDRUCK DOPPELTE DICHTE   *
1060 REM ********************************
1065 :
1070 GOSUB1205:OPEN4,4,A(1,3)
1075 FORS=0TO24STEP2:ZE=15:IFS=24THENZE=7
1080 X=0:SZ=1:GOSUB1250:X=3:GOSUB1250:SYS50475,S*320,1,0,1
1085 PRINT#4:X=0:SZ=ZE:GOSUB1250:X=3:GOSUB1250:SYS50475,320*S,1,1,1
1090 PRINT#4:NEXTS:GOSUB1215:RETURN
1095 :
1100 :
1105 REM ********************************
1110 REM *    DRUCKERPARAMETER PRUEFEN  *
1115 REM ********************************
1120 :
1125 PRINT"[147] [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
1130 PRINT"         [196]RUCKERPARAMETER PRUEFEN      [146]":AS=1:GOSUB1545:PRINT
1135 IFDDTHENPRINT"[218]EILENABSTAND N/144 [201]NCH :":PRINT:X=0:GOSUB1340
1140 PRINT"[218]EILENABSTAND 8/72 [201]NCH :":PRINT:X=1:GOSUB1340
1145 IFDDTHENPRINT"[196]OPPELTE [196]ICHTE /320 [208]UNKTE :":PRINT:X=2:GOSUB1340
1150 IFDDTHENPRINT"[196]OPPELTE [196]ICHTE /640 [208]UNKTE :":PRINT:X=3:GOSUB1340
1155 PRINT"[197]INFACHE [196]ICHTE /320 [208]UNKTE :":PRINT:X=4:GOSUB1340
1160 PRINT"[197]INFACHE [196]ICHTE /640 [208]UNKTE :":PRINT:X=5:GOSUB1340
1165 GETA$:IFA$=""GOTO1165
1170 GOTO105
1175 :
1180 :
1185 REM ********************************
1190 REM *     KANAELE OEFFNEN & SCHL.  *
1195 REM ********************************
1200 :
1205 OPEN1,4,A(1,0):OPEN2,4,A(1,1):OPEN3,4,A(1,2):OPEN7,4,A(1,3)
1210 OPEN5,4,A(1,4):OPEN6,4,A(1,5):RETURN
1215 FORI=1TO9:CLOSEI:NEXT:RETURN
1220 :
1225 :
1230 REM ********************************
1235 REM *     DRUCKERSEQUENZ SENDEN    *
1240 REM ********************************
1245 :
1250 A=A(1,X)+1:IFA=4THENA=7
1255 FORI=3TOA(2,X)+2:FK=1:IFX=0ANDI=A(2,0)+2THENFK=SZ
1260 PRINT#A,CHR$(A(I,X)*FK);:NEXT
1265 RETURN
1270 :
1275 :
1280 REM ********************************
1285 REM *   EINGABE DER STEUERZEICHEN  *
1290 REM ********************************
1295 :
1300 PRINT"[147] [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
1305 PRINT"              [196]RUCKERANPASSUNG         [146]":GOSUB1545:RETURN
1310 IFA(2,X)=0THENRETURN
1315 PRINT"":FORI=3TOA(2,X)+2:A$=RIGHT$(STR$(I-2),2)
1320 PRINT"[145][211]TEUERCODE #";A$;"              [157][157][157][157][157][157][157][157][157][157]";A(I,X)
1325 INPUT"[145]";A(I,X):NEXTI
1330 PRINT"[211]EKUNDAERADRESSE  ";A(1,X):AS=0
1335 INPUT"[145]";A(1,X):AS=0
1340 A$="  [211]EKUNDAERADRESSE "
1345 A$=A$+RIGHT$(STR$(A(1,X)),LEN(STR$(A(1,X)))-1)+": ":IFA(2,X)=0GOTO1365
1350 FORI=3TOA(2,X)+2:A$=A$+RIGHT$(STR$(A(I,X)),LEN(STR$(A(I,X)))-1)
1355 IFI<>A(2,X)+2THENA$=A$+"/ "
1360 NEXTI:IFX=0THENA$=A$+"*N"
1365 PRINT"[145]";A$:IFASTHENRETURN
1370 PRINT"[201]ST DIES KORREKT ?"
1375 GETA$:IF(A$<>"N"ANDA$<>"J")GOTO1375
1380 RETURN
1385 :
1390 :
1395 REM ********************************
1400 REM *     DRUCKERKOMMANDO SENDEN   *
1405 REM ********************************
1410 :
1415 PRINT"[147] [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
1420 PRINT"          [196]RUCKERKOMMANDO SENDEN       [146]":GOSUB1545
1425 INPUT"[193]NZAHL DER [195]ODES ";X$:X=VAL(X$):IFX$="_"ORX$=""GOTO105
1430 PRINT"":FORI=1TOX:A$=RIGHT$(STR$(I),2)
1435 PRINT"[145][211]TEUERCODE #";A$;"               "
1440 INPUT"[145]";B(I):NEXTI
1445 INPUT"[211]EKUNDAERADRESSE ";SA
1450 A$="  [211]EKUNDAERADRESSE "
1455 A$=A$+RIGHT$(STR$(SA),LEN(STR$(SA))-1)+": "
1460 FORI=1TOX:A$=A$+RIGHT$(STR$(B(I)),LEN(STR$(B(I)))-1)
1465 IFI<>XTHENA$=A$+"/ "
1470 NEXTI:PRINT"[145]";A$
1475 PRINT"[201]ST DIES KORREKT ?"
1480 GETA$:IFA$<>"J"ANDA$<>"N"GOTO1480
1485 IFA$="N"GOTO1415
1490 OPEN4,4,SA:FORI=1TOX:PRINT#4,CHR$(B(I));:NEXT:CLOSE4:GOTO105
1495 :
1500 :
1505 REM ********************************
1510 REM *         KOPF BEIM LADEN      *
1515 REM ********************************
1520 :
1525 POKE53280,15:POKE53281,15:POKE646,11:PRINTCHR$(14)CHR$(8)
1530 PRINT"[147]     [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
1535 PRINT"     [199]IGA-[195][193][196] [200]ARDCOPY LOADING..."
1540 PRINT"     [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]":RETURN
1545 PRINT" [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
1550 RETURN